30200 S=54272:FORL=54272TO54296:POKEL,0:NEXT:POKES+24,15
30210 POKES+6,240:POKES+4,129:POKES+1,34:POKES,75
30220 FORA=1TO15:POKES+24,A
30222 TQ=TI
30224 IFTI<TQ+4THEN30224
30226 NEXT
30230 FORB=15TO1STEP-1:POKES+24,B
30232 TQ=TI
30234 IFTI<TQ+16THEN30234
30236 NEXT
30240 TQ=TI
30242 IFTI<TQ+300THEN30242
30250 GOTO30210